<span>Назад(5): 3-5 = -2
Вперед(3): -2+3 = 1
Вперёд (3): 1+3 = 4
</span>Ответ: 4
Var x,y,b:real;
begin
writeln ('Введи 2 вещественных числа');
readln (x,y);
b:=x;
x:=y;
y:=b;
writeln (x,y);
realdn;
end.
1)
program chik;
var a,b:integer;
begin
read(a,b,c);
if(a mod b=0)then writeln('делиться')else writeln('не делиться');
end.
2)
program chik2;
var a:integer;
begin
read(a);
if(a mod 2=0)then writeln('да')else writeln('NO');
end.
3)
program chik3;
var a,b,c,max:integer;
begin
read(a,b,c);
max:=a;
if(b>max)then max:=b;
if(c>max)then max:=c;
writeln(max);
end.