Program llllll;
var a,b,c: integer;
begin
writeln('Введите a');
readln(a);
writeln ('Введите b');
readln(b);
c := a;
a := b;
b := c;
writeln('a = ' ,a);
writeln('b = ', b);
end.
ИНФОРМАТИКА ИНдюкФОРМА ТИК А
<em>Решение в прикрепленном файле txt</em><span />
Var a,b:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if a=b then writeln ('a=b') else
begin
if (a>b) then writeln('max=',a,' min=', b) else
writeln ('max=',b, ' min=', a)
end;
readln;
<span>end.</span>