Даны три числа, если первое число положительно, то два других уменьшить в два раза, в противном случае увеличить на 3.Помогите пожалуйста решить.В Фри Паскале.На анлийском языке.

1

Ответы и объяснения

2013-02-12T19:45:15+04:00

program yourname;
var a,b,c:integer;
begin
read(a,b,c);
If (a>0) then write(b/2 , c/2)
else write(b+3, c+3);
readln();
end.