Ошибка есть и она не одна.
1. Код приведен не полностью - после else должно быть что-то еще и обязательно замыкаться end.
2. abc - не такой функции в Паскале, возможно Вы имели в виду abs - абсолютная величина, т.е. модуль.
3. if ab then ... это тоже не верно, т.к. ab - не является логическим выражением или булевой пременной - видимо не дописал: if ab>ac then...
Const mile = 7;
const verst = 500;
const saj = 3;
const arsh = 28;
const dm = 25.4;
const mm = 1000000;
var x, km: real;
begin
write('Введите число для перевода из миль в километры: ');r
eadln(x);
km := ( x * mile * verst * arsh * saj * dm ) / mm;
writeln(x, ' -> ', km);
<span>end.</span>
begin
writeln(7.41-sqrt(5*(sqrt(7))+sqr(12)));
end.
Полученная в нужный момент времени информация явлается актуальной или полезной
//pascal
var a,b,c,n: integer;
begin
n:=0;
readln(a);
if a mod 2 = 0 then n:=n+1;
readln(b);
if b mod 2 = 0 then n:=n+1;
readln(c);
if c mod 2 = 0 then n:=n+1;
writeln('Четных : ', n);
end.