1
var
ch1, ch2: Integer;
begin
readln(ch1, ch2);
WriteLn(ch1*ch2);
end.
2
var
ch1, ch2: Integer;
begin
readln(ch1, ch2);
WriteLn(abs(ch1-ch2));
end.
3.1
var
i:Integer;
begin
for i:=1 to 3 do
WriteLn('ФИО')
end.
3.2
var
ch, sum: real;
begin
sum:=0;
ch :=1;
while ch <= 20 do
begin
sum:= sum +ch;
ch:=ch+0.5;
end;
WriteLn(sum);
end .
3.3
var
ch:LongInt;
begin
ReadLn(ch);
while (ch>9) or (ch<9) do
begin
ReadLn(ch);
end ;
WriteLn('Программа завершена');
end .
как лучший
