Версия для печати темы

uses crt;
var s,ch1,ch2,ch3,ch4,ch,k5:real;
d:boolean;
begin
d:=true;
while d=true do
begin
write('введите число');
readln(ch1);
write('введите 2-е число');
readln(ch2);
if ch1>ch2 then
writeln('введите число');
readln(ch1);
write('введите 2-е число');
readln(ch2);
if ch2<=ch1 then
begin
write(' программа закончена');
d:=false;
end;
if ch1>105 then
s:=s+ch1;
if ch2>105 then
s:=s+ch2;
writeln(s);
end;
end.