program ABC;
var
a, x, c: real;
begin
write('Введите значения a и x: ');
read(a, x);
c := a / (x + 2);
Write('c = ', c)
end.
<span>easyQuizzy Программа что бы составлять тесты</span>
Var a, b: word;
k: byte;
begin
write ('Введите двузначное число: ');
readln (a);
b := a;
k := 0;
while b <> 0 do begin
a := a mod 10;
k := k + 1;
b := b div 10
end;
if (k <> 2) then
writeln ('Вводите только двузначные числа')
end.