Question

Program Pascal
Se considera doua numere întregi. Daca primul număr este pozitiv, atunci el se mărește cu 100, in caz contrar numerele rămân neschimbate.

Answer 1

program P;

var  a, b: integer;

begin 
readln(a, b);
  if a < 0 then
     a := a + 100;
  writeln('a = ' + a + ' b = ' + b);
end.