3
program z3;
procedure S(n: integer);
var i:integer;
begin
for i:=1 to n do writeln('A')
end;
var n:integer;
begin
read(n);
S(n)
end.
4
program z4;
function m(a,b: integer):integer;
begin
if a>b then m:=b else m:=a
end;
var a,b,c:integer;
begin
read(a,b,c);
writeln(m(m(a,b),c))
end.
Объяснение:
4. Ввод целых данных через пробел
