Алг
нач
цел n, a, Max
вывод "n = "
ввод n
ввод Max
нц для n от 1 до n-1
ввод a
если a > Max то Max:=a
всё
кц
вывод "Max = ", Max
кон
Наверное викитека я так думаю.
1)
program hello_world;
var n, i: integer;
begin
write('Введите число ');
read(n);
for i:= 1 to n do write(i, ' ')
end.
2)
program hello_my_world;
var a,b, i: integer;
begin
write('Введите числа A и B ');
read(a, b);
for i:=a to b do write(i, ' ')
end.
Some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text