Построить er-диаграмму в ms visio на тему центр ремонта оргтехники, на скриншоте дан пример "склад оптовой торговли"

//pascalabc.net 3.4.2

begin

  var num : = readinteger('введите число: ').tostring;

  if(num.sum(x -> strtoint(x)) in [10..99]) then  

    write('сумма цифр является двузначным числом,')

  else  

    write('сумма цифр не является двузначным числом,');

  if(num.contains('4')) or (num.contains('7')) then

    write(' в записи этого числа есть числа 4 или 7.')

  else  

    write(' в записи этого числа нет числа 4 или 7.');

end.

ответ:

summa1 - только для целых

summa2 - для любых

объяснение:

program summa1;

var

  x,y,s: integer;

begin

write ('введите х ');

readln(x);

write ('введите y ');

readln(y);

writeln ('вы ввели: x=',x,' ,y=',y);

  s: =x+y;

  write ('x+y=',s);

  readln;

end.

-------------------------------------------------------

program summa2;

var

  x,y,s: real;

begin

write ('введите х ');

readln(x);

write ('введите y ');

readln(y);

writeln ('вы ввели: x=',x: 5: 2,' ,y=',y: 5: 2);

  s: =x+y;

  write ('x+y=',s: 10: 2);

  readln;

end.