Question

Se considera 2 numere intregi daca primul numar este negativ atunci suma lor se micsoreaza de 5 ori , in caz contrar se mareste de 5 ori
PASCAL

Answer 1

var a,b,s:integer;
begin
write ('a=');readln(a);
write ('b=');readln(b);
s:=a+b;
if a<0 
then s:=s/5
else s:=s*5;
writeln ('Suma numerelor este',s); readln ;
end.