Первая
program PrograPervaya;
var x,y,z,f:integer;
begin
Writeln('vvedite pervoe chislo:=');
readln(x);
Writeln('vvedite vtoroe chislo:=');
readln(y);
Writeln('vvedite trete chislo:=');
readln(z);
if (x < y) and (x < z) then begin Writeln('Pervoe chislo menshee');
end;
if (y < x) and (y < z) then
begin
Writeln('Vtoroe chislo menshee');
end;
if (z < x) and (z < y) then begin Writeln('Tretee chislo menshee');
end;
Write('End?');
readln(f);
end.
Вторая
program PrograVtoraya;
var k,i:integer;
begin
writeln('vevedite chislo');
readln(k);
if (k mod 3 = 0) and (k mod 7 = 0) and (k mod 9 = 0) then
begin writeln('chislo kratnoe 3, 7,9');
end
else
begin
writeln('chislo ne kratno 3,7,9');
end;
writeln('End?');
readln(i);
end.
Третья
program PrograVtoraya;var z,n,k,s,i:integer;
begin
writeln
('vvedite 4 znach chislo');
readln(n);
z:=n div 1000;
k:=n div 100 mod 10;
s:=n div 10 mod 10;
i:=n mod 10;
if ((z = k) and (z = s) and (s = k)) or ((k = s) and (k = i) and (s = i)) or ((i = z) and (i = k)) and ( k = z) then begin writeln('Da, verno');
end
else
begin
writeln('net, ne verno!');
end;
writeln('End?');
readln(i);
end.