var
a,b: integer;
begin
writeln('Введите два числа: ');
read(a,b);
writeln('Их сумма: ',a+b,'; Их разность: ',a-b,'.');
<span>end.</span>
Сместиться (2,0)
сместиться (0,2)
сместиться (-2,0)
сместиться (0, -2)
Первое задание левого варианта
var
x, y: real;
begin
readln(x);
if x > 0 then
y := sqrt(x + 1)
else y := 3 * x * x + 4 * x - 5;
writeln(y);
end.