Открыть шкаф с кастрюлями
Пока не найдётся подходящая кастрюля, искать кастрюлю
Заглянуть в кастрюлю. Если не пустая - выложить и/или помыть
Открыть кран
Подставить кастрюлю
Закрыть кран, когда наберётся вода
Поставить на плиту К.
Забросить пельмени
Включить плиту
Ждать
<span>[Опционально] Забыть выключить</span>
Паскаль:
Var xa,ya,xb,yb:integer;
AB:real;
begin
read (xa,ya,xb,yb);
AB:=sqrt(sqr(xb-xa)+sqr(yb-ya));
Write ('|AB|=',AB:3:1);
end.
Var s,null:string;
i:integer;
begin
readln(s);
for i:= 1 to length(s) do
if i mod 2 = 1 then
null:=null+s[i];
writeln(null);
<span>end.</span>
Program calculator;
var a, b, c: integer;
begin
writeln('Введи 2 числа: ');
readln(a,b);
c:=a+b;
writeln(c);
end.