Question

Se considera doua numere intregi daca primul numar este pozitiv atunci el se mareste cu 100 in caz contrar numerele ramin neschimbate

Answer 1

var a,b:integer;
begin
write ('a=');readln(a);
write ('b=');readln(b);
if a>=0 
then a:=a+100;
writeln (a,b); readln;
end.