Var a, b, c : real;
Begin
Write('введите a: ');
Readln(a);
Write('введите b: ');
Readln(b);
Write('введите с: ');
Readln(c);
Write('(a + b) * c = ', (a + b) * c);
Readln;
End.
Program n1;
var x1,x2,y1,y2: real;
begin
write('координаты точки A: ');
readln(x1,y1);
write('координаты точки B: ');
readln(x2,y2);
write('|AB|=',sqrt(sqr(x2-x1)+sqr(y2-y1)));
end.
Алгори́тм — набор инструкций, описывающих порядок действий исполнителя для достижения некоторого результата.