Program programm;
var A,B: integer;
begin
writeln('Введите число A: ');
readln(A);
writeln('Введите число B: ');
readln(B);
if (A > 1) and (B < -3) then
writeln('Неравенство ВЫПОЛНЕНО!')
else
writeln('Неравенствено НЕ выполненно!');
end.
Б http
В ://
Ж travels.
Е ru
Г /
Д home
А .jpg
http://travels.ru/home.jpg
Кнопка- телевизор. телефон
крышка- банк, посуда
ручка- машина
провода- техника
Program Prog;
Uses crt;
var a: array [1..100] of real;
i, N: integer;
begin
clrscr;
Write('N = ');
readln(n);
for i:=1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln;
writeln('Положительные числа: ');
for i:=1 to n do
if (a[i]>0) then
writeln('a[',i,'] = ', a[i]);
end.
История автомобильного завода ЗиЛ.
Описание какой-нибудь области.
Первый полёт в космос.