Это относительно прошлой темы составил прогу, тока ошибка где-то, причем детская ошибка, но уже все не соображаю, два дня делал задачи...
Цель тут такая необходимо, чтобы (z) выходила как результат в (writeln) (выдает 26 ошибку).
program rgr2;
uses crt;
var
z:real;
a:array[1..3] of real;
b:array[1..3] of real;
x,y:integer;
begin
clrscr;
a[1]:=40;
a[2]:=38;
a[3]:=42;
b[1]:=39;
b[2]:=40;
b[3]:=41;
begin
for x:=1 to 3 do
for y:=1 to 3 do
if a[x]<b[y] then z:=a[x]<b[y];
writeln('firma 3 ne vipolnela plan v ',z,' mesace');
end;
readln;
end.