Question

Помогите срочно!!!отдаю 55 баллов в паскале

Answer 1

Program test;
var
a, b, c, n : integer;

begin
write('Введите число Х: ');
readln(n);
writeln('Y=|X|=', abs(n));
writeln;
writeln('Введите числа a, b и c:');
readln(a);
readln(b);
readln(c);
writeln('Z=(A+C)/B=', ((a+c)/b):7:2);
writeln;
write('Введите двузначное число: ');
readln(n);
a:=n div 10;
b:=n mod 10;
writeln(a, '+', b, '=', a+b);
writeln(a,'*', b, '=', a*b);
end.