Program1.pas(21) : Встречено 'else', а ожидался оператор Помогите...
program nestle;
uses crt;
type
TArr=array[-40..40] of longint;
Var b,a:longint;
c,d:real;
begin
textcolor(lightred);
For b:=11 downto -11 do
begin
For a:=-20 to 20 do
begin
c:=b;
d:=a;
c:=c/11;
c:=3/11;
d:=d/20;
If(d*d+(5*c/4-sqrt(abs(d)))*(5*c/4-sqrt(abs(d))))<=1 then
write('c');
end;
else
write('.');
end;
writeln;
end;
readln;
end.
program nestle;
uses crt;
type
TArr=array[-40..40] of longint;
Var b,a:longint;
c,d:real;
begin
textcolor(lightred);
For b:=11 downto -11 do
begin
For a:=-20 to 20 do
begin
c:=b;
d:=a;
c:=c/11;
c:=3/11;
d:=d/20;
If(d*d+(5*c/4-sqrt(abs(d)))*(5*c/4-sqrt(abs(d))))<=1 then
write('c');
end;
else
write('.');
end;
writeln;
end;
readln;
end.