Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
пщояк 17 27 16 33 17
нщёп 15 27 7 17
program w7w7;
var a: real;
begin
readln (a);
if a< 0 then writeln ('otritsatelnoe chislo');
if a> 0 then writeln ('pologitelnoe chislo');
end.
Популярные вопросы