Var
x:real;
n:integer;
begin
Write('Введите x -> ');
Readln(x);
Write('Введите номер действия(1..4) - > ');
readln(n);
case n of
1: Writeln('y = ', x*x);
2: Writeln('y = ', cos(x));
3: Writeln('y = ', sin(x));
4: Writeln('y = ', abs(x));
end;
end.
страниц от 1 до 9 - это 9, затем 10-я и 11 страницы ещё 4 цифры. всего 13
Это просто переменные, никакого глубинного смысла.
Блок-схема - в прилагаемом файле.