реализация основных алгоритмических конструкций на языке программирования

Линейная структура на языкеPascal

Нахождение расстояния

var V, S, t:real;

begin

readln (V, t);

S:=V*t;

writeln (S);

end.

Ветвление

var a, b:integer;

begin

readln (a, b);

if (a>b) then writeln ('+++') else

writeln ('---');

readln;

end.

Цикл

var i:integer;

begin

for i:=1 to 5 do writeln (i);

readln;

end.