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

Линейная структура на языке 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.