Заключи то что после if в скобки и будет тебе счастье. И ' ; ' убери после g mod 2 =0.
и в действии перед if в конце поставь ' ; '.
1024•4=4096
768•4=3072
4096•3072= 12582912
12582912/65536=192секунды
В разных кодировках по разному. обычно 1 символ - 1 байт(8бит)
Формула
y=(2x-17√(x-7))/|3x-12|
Программа
Program y
var x, y: real
BEGIN
write ('Vvedite x');
readln (x);
y=(2*x-17*sqrt(x-7))/abs(3*x-12);
writeln ("y = ", y);
END.
Мы с друзьями гуляли в ХОЛОДНОЮ И МОКРУЮ погоду!