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

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