program raf105;
var m,n,sum: integer;
begin
write('Введите число m: ');
readln(m);
write('Введите число n: ');
readln(n);
sum:= m+n;
if m=n
then begin
m:= sum;
n:= sum;
end
else begin
m:= 0;
n:= 0;
end;
writeln('m = ',m);
writeln('n = ',n);
end.
в приложении
program raf105;
var m,n,sum: integer;
begin
write('Введите число m: ');
readln(m);
write('Введите число n: ');
readln(n);
sum:= m+n;
if m=n
then begin
m:= sum;
n:= sum;
end
else begin
m:= 0;
n:= 0;
end;
writeln('m = ',m);
writeln('n = ',n);
end.
Блок схемав приложении