модуль3.задание6

program lab1; - название программы
var - описание переменных
c:char; - переменная с типом
x:byte; - переменная с типом
res:real; - ввод данных
begin - началопрограммы
writeln('vvedite 1 bykvu'); - вывод данных на экран
readln(c); - оператор ввода
x:=ord(c); - присвоение к переменным
writeln(x); - вывод
res :=cos(x/100)/sin(x/100); присвоение к переменным
writeln('f(x) = ',res:5:2); вывод данных на экран
readln; оператор ввода
end. конец