Program z1;
var a,b:integer;
begin
writeln('ведите числа-э);
readln(a,b);
if a>b then
a:=a-1;
end;
writeln('a=',a);
end. усё
Program z1;
var a,b:integer;
begin
writeln('ведите числа-э);
readln(a,b);
if a>b then
begin
a:=a-1;
end;
writeln('a=',a);
end. усё