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

Линейная структура на языке PascalНахождение расстояния var V,S,t: real; beginreadln (V,t); S: =V*t; writeln (S); end. Ветвлениеvar a,b: integer; beginreadln (a,b); if (a>b) then writeln ('+') elsewriteln ('-'); readln; end. Циклvar i: integer; beginfor i: =1 to 5 do writeln (i); readln; end.