Program n1;
var a: array[1..27] of integer;
i: integer;
begin
randomize;
for i:=1 to 27 do a[i]:=random(76)+25;
end.
Var a,b,c,d,k,f,flag: integer;
begin
readln(a,b,c,d);
repeat
K:=k+1;
Case k of
1: f:=b;
2: f:=c;
3: f:=d;
end;
If a<f then flag:=flag+1
else flag:=0;
Until k=3;
If flag=3 then Writeln('yes')
else writeln('no');
readln;
end.
12-2
13- E:\Класс7\Физика\Задача5.doc
14- E:\TOM3\Doc3.doc
1) 91
2) 36
3) 3 (опечатка в условиях: вместо stringa надо писать string)
4) Вроде все верно, но быть может кроме а)