Răspuns:
Sper că îţi este clar
Program H5
(operaţie cu 2 numere tip (natural)sau real x,d,m)
var;x,d,m :real
begin
writeln (citeste )introduc num real
readln(x,d,m) writeln('x=x
writeln d <- x+1
writelnm <-x-2
writeln ('d=d)
written ('x=x)
writeln d = x+1;
writeln m = x-2;
written << d << " " << m;
readln
end