program zA_3_6 uses crt var integer begin clrscr Vvodim chilsovie dann

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
program zA_3_6;
uses crt;
var a,b,c : integer;
begin
clrscr;
{Vvodim chilsovie dannie}
writeln('VVedite chisla ');
write('VVedite a = '); readln(a);
write('VVedite b = '); readln(b);
write('VVedite c = '); readln(c);
if ((a<0) OR (b<0) OR (c<0)) then
writeln('Hotya bi odno chislo otricatelnoe...')
else
writeln('Vse chisla polojitelnie...');
readln;
end.