Первая
program z1;
uses crt;
var a:integer;
begin
writeln('vvedite chislo');
readln(a);
if (a>-5) and (a<3) then<br>writeln ('prinadlezhit') else
writeln ('net');
end.
вторая
program z2;
uses crt;
var a,b:integer;
begin
writeln('vvedite chislo');
readln(a);
b:=(a div 10)+(a mod 10);
if b mod 2=0 then
writeln ('da') else
writeln ('net');
end.
третья
program z3;
uses crt;
var a,b,c,k:integer;
begin
writeln (' введите числа');
readln (a,b,c);
k:=0;
if a mod 2<>0 then
k:=k+1;
if b mod 2<>0 then
k:=k+1;
if c mod 2<>0 then
k:=k+1;
writeln(k);
end.
четвёртая
program z4;
uses crt;
var a,b,c,min:integer;
begin
writeln ('введите числа');
readln (a,b,c);
min:=a;
if bmin:=b else
if cwriteln(min);
end.
пятая
program z5;
uses crt;
var a:integer;
begin
writeln ('число');
readln (a);
if (a>9) and (a<100) then<br>writeln('da') else
writeln ('net');
end.