Ответы
Ответ дал:
0
program w;
uses crt;
var A:real;
begin
clrscr;
write ('Введите число A: ');
readln (A);
if A>=0 then
writeln ('Вы ввели положительное число');
readln
end.
Вас заинтересует
2 года назад
2 года назад
8 лет назад
8 лет назад
10 лет назад
10 лет назад
10 лет назад