uses crt; <em>{подключение модуля CRT}</em>
var
x: integer;<em> {описание переменных}</em>
begin <em>{начало программы}</em>
writeln('vvedi chislo: '); <em>{вывод текста на экран}</em>
read(x);<em> {чтение введеных данных}</em>
if (x mod 3 = 0) then x:=x+1 <em>{условие}</em>
else x:=x-2; <em>{если условие не выполняется}</em>
write('rezultat: ',x);<em> {вывод текста на экран}</em>
end. <em>{конец программы}</em>
Вот три первых вычисления
===== PascalABC.NET =====
begin
var x := ReadReal;
var y := x - Sqr(x) / 3 + x ** 6 / 4;
Println(y);
y := 3 ** (-x) + Cos(x) - Sin(x * x);
Println(y);
y := (x ** 3 + 9 * x + 12) / (x * x - 6 * x + 15);
Println(y);
end.
3+4=10 и 3*4=15
будет в семеричной системе счисления
10-мин назад, отвечал на похожее задание)))