Var a,b,c:integer;
begin
readln(a, b);
c:=a+b;
writeln(c);
end.
Линейная структура на языке<u>Pascal</u>
Нахождение расстояния
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.
Вправо
нц 3 раза
нц 3 раза
закрасить, вниз
кц
вправо
кц
Var a:integer;
begin
write('введите число ');
read(a);
if ((a div 10 + a mod 10) mod 3=0) writeln('YES') else write ('NO');
end.
Решение показано в прилагаемом файле.
Ответ: 10 путей.