Паскаль выдаёт ошибку: Встречено 'end', а ожидалось выражение

Question

Program dlina;

uses crt;

var x:real;

d:real;

q:real;

begin

writeln('Введите длину троса в метрах');

readln(x);

d:=x/0.305;

readln(d);

q:=x/0.914;

readln(q);

writeln('Длина троса в ярдах =',q,'а длина троса в футах =',d,');

end.

Юля · Accepted Answer

после d убери запятую и кавычку

Александр Тишков · Answer

Да, в предпоследней строке, в самом конце, когда выводишь d, после него сотри запятую и кавычку, чтоб вот так было: " writeln('Длина троса в ярдах =',q,'а длина троса в футах =',d); "

Артур Нагай · Answer

Program2.pas(9) : Встречено 'for', а ожидалось ';'

Program b1;
 var
 a,b: string;
 i,k: integer;
 begin
a:='123456123456123412312';
b:='123456';
k:=0
for i:=1 to length(a)-length(b)+1 do ;
if copy(a,i,length(b))=b then k:=k=1;
writeln(k);
End.