Ошибка error 26: Type mismatch в паскале

[Yurikus83]

const a=14;
var x:integer;b,y:real;
begin
x:=1;
b:=a/7+10;
y:=b/3+x;
if (2*b>5*y) or (b<a-3) then begin x:=y-2; y:=x*3; end;
if (a>b/3+5) and (2*y>b) then begin x:=x-1; y:=x+y; end;
writeln(y,'y=', y:4:3);
assign(output,'zna4enie peremenoy.txt');
rewrite(output);
readln;
end.

В 7-й строчке после 2-ки показывает ошибку

[Yurikus83]

Я нашел решение проблемы integer меняем на Extended.
ПОДСКАЖИТЕ как сделать чтоб все решение пошагово в текстовом формате сохранил в файл?

[Leshii]

Путаница у вас конечно страшная была в том коде.
Для пошаговости можете все переменные впихнуть в файл =) ну и впихнуть комментарии.
Но я тут особой пошаговости не вижу.

const a=14;
var 
  x:Extended;
  b,y:real;
  output: text;
begin
assign(output,'z_p.txt');
rewrite(output);
x:=1;
b:=a/7+10;
y:=b/3+x;
if (2*b>5*y) or (b<a-3) then begin x:=y-2; y:=x*3; end;
if (a>b/3+5) and (2*y>b) then begin x:=x-1; y:=x+y; end;
writeln(output,'y=', y:4:3);
writeln('y=', y:4:3);
close(output);
readln;
end.

[nickolaeff]

Сообщение от Yurikus83

Я нашел решение проблемы integer меняем на Extended.
ПОДСКАЖИТЕ как сделать чтоб все решение пошагово в текстовом формате сохранил в файл?

вам надо это в текстовыйт файл вывести?

[vyacheslav27]

А как сюда вставить вид проги?

Сообщение от nickolaeff

вам надо это в текстовыйт файл вывести?

Ага очень а то замучался.

[Stilet]

как сделать чтоб все решение пошагово в текстовом формате сохранил в файл?

const a=14;
var 
  x:Extended;
  b,y:real;
  output: text;
begin
assign(output,'z_p.txt');
rewrite(output);
x:=1; writeln(x:=1;'');
b:=a/7+10; writeln('b:=a/7+10;');
y:=b/3+x; writeln(y:=b/3+x;');
if (2*b>5*y) or (b<a-3) then begin x:=y-2; y:=x*3; writeln(x:=y-2; y:=x*3;''); end;
if (a>b/3+5) and (2*y>b) then begin x:=x-1; y:=x+y; writeln( x:=x-1; y:=x+y; ''); end;
writeln(output,'y=', y:4:3); writeln(writeln(output,'y=', y:4:3);'');
writeln('y=', y:4:3); writeln(writeln('y=', y:4:3);'');
close(output);
readln;
end.

Идея ясна?