Проанализируй и запиши верные ответы.

var

x: real;

begin

readln(x);

writeln(round(x));

end.

var

x,y: real;

i,n: integer;

begin

n: =1;

x: =1;

y: =1;

for i: =1 to 5 do

begin

n: =n*i;

x: =-1.5*x;

y: =y*(x+1/n);

end;

writeln(y: 15: 5);

end.

не трундая . приступим.

пусть а - первое число, б - второе число, с - третье число.

четное число - 2n

if (a+b+c) div 2 = 0 then writeln ('их сумма четное число') else writeln ('их сумма нечетное число');

pascal

program tovar;

var i,k: integer; t,s: real;

begin

s: =0;  

writeln ('vvedit kol-vo tovara');

readln (k);

for i: =1 to   k do

begin

writeln ('vvedit stoimost',i,'-go tovaru');

readln (t);

s: =t+s;

end;

writeln ('stoimost pokupok-',s);

readln

end.