Проблема с кодом в Pascal (delphi7)

[Некитос]

вот текст программы
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

const p=3.14;
Var a,x,q,g:real;
Begin
Write('vvedite a , x ');
Readln (a,x);
if x<1.4 then q:=p*(x^2)-7/(x^2)
else
begin
and;
if x>1.4then writeln ('TI DURAK')
else
end;
begin
if x=1.4 then q:=a*(x^3)+7*sqrt(x)
else
end;
if x=1.4 then writeln ('TI DURAK')
else
begin
a,'+',x,'=',g
if x>6 then q:=Ln(x+7*sqrt(g))
else writeln ('TI DURAK')
end;
Writeln('q=', q:3:2);
// Writeln('result:q=', q:3:2);
// Writeln('end program.');Readln;
readln;
end.

[type_Oleg]

Символ ^ в Паскале - это не возведение в степень, это такая фигня, которая должна стоять перед указателями - type Pointer.
Нет в Паскале операции возведения в степень. Есть функция возведения в степень Power, есть функция квадрата Sqr. Но здесь лучше просто x*x

[Некитос]

Спасибо,щас исправлю

[Некитос]

вот след ошибка , помогите исправить
нужна ли эта строка вообще?

[type_Oleg]

Вы вообще прежде всего с помощью пробелов красиво распишите программу, чтобы лучше видно было , куда все эти begin .. end. Сами то понимаете, для чего каждый оператор ?

А эта строка - фигня конечно. Скорее всего, огрызок от Writeln

[Некитос]

спасибо , разобрался и теперь все работает

[Arigato]

Сообщение от Некитос

нужна ли эта строка вообще?

Вместо этой строки должен быть такой код:

writeln ('TI DURAK');