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.
<em>Десятичная система счисления</em>
Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i]<0 then writeln('esti') else writeln ('net');
readln;
end.
Да,числа : 3,10,17,24,31,38,45,52,59,66,73,80,87,94
P.S. Pascal ABC
var a:integer;
begin
for a:=1 to 100 do
begin
if (a mod 7 =3)then writeln(a);
end;
<span>end.</span>