1. Вывести в столбик числа от 1 до 5.
Решение:
program summa;
var x:integer;
begin
for x:=1 to 5 do
writeln(x);
end.
2. Вывести в столбик числа от 15 до 3 и их удвоенные значения
Решение
Program prim1;
var i: integer;
Begin
For i:=15 downto 3 do
writeln(i, ' ', i*2);
End.