Хххееелллпппуууйййтттеее
Program P1;
uses crt; - вывод окошка
var a,b,c:integer;
begin
write('a=');
read(a);
write('b=');
read(b);
if a>0 then
c:= a+ b
else c:=b;
writeln('c=',c);
end.