Продумайте алгоритм своих действий при выполнении ремонта вышедших из строя комплектующих(Сгорели процессор, мат. плата и кулеры), . Отремонтируйте рабочие станции. Запишите алгоритм действий.

14                                                                                                                       

var x,x1: integer;

s: string;

begin

  read(x);

  s: =str(x);

  x1: =int(s[3]+s[2]+s[1]);

  writeln(x-x1);

end.

var x1,y1,z1,x2,y2,z2,d: real;

begin

writeln('введите координаты первой точки');

readln(x1,y1,z1);

writeln('введите координаты второй точки');

readln(x2,y2,z2);

d: =sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)+(z2-z1)*(z2-z1));

wrileln(d);

end.

var x,y: integer;

begin

readln(x);

if x< 1 then y: =-2*x+11

else y: =x*x-2;

writeln(y);

end.