Вычислитель
делопроизводитель
бухгалтер
библиотекарь
модельер
дизайнер
архитектор
мультипликатор
Program oji;
var x,c,b:real;
begin
writeln ('Введите дробное число');
readln (x);c:=x+100;
writeln (x,'+',100,'=',c);
b:=x-100;
writeln (x,'-',100,'=',b);
end.
<span>На пожалуйста!))))</span>
PascalABC.NET 3.4
begin var (x,y):=ReadReal2('Координаты слона (х y):');
if not x.Between(1,8) or not y.Between(1,8) then begin
Writeln('Координата должна быть в пределах 1..8');
Exit
end;
var (x1,y1):=ReadReal2('Координаты фигуры (х y):');
if not x1.Between(1,8) or not y1.Between(1,8) then begin
Writeln('Координата должна быть в пределах 1..8');
Exit
end;
if Abs(x-x1)=Abs(y-y1) then Writeln('Можно убить')
else Writeln('Нельзя убить')
end.