Завдання №2. Обчислення виразів.
Обчислити заданий вираз 
при вказаних значеннях. Вихідні дані задати самостійно. У програмі передбачити виведення початкових даних і результатів обчислень.
Program Obchuslennya_vuraziv;
Var
y,ALFA,BETA:real;
Begin
write ('Znachennya arhumenta ALFA=');
readln (ALFA);
write ('Znachennya arhumenta BETA=');
readln (BETA);
y:=(sqr(sin(arctan(ALFA))))/(exp(1/4*ln(abs(cos(ALFA)+cos(BETA)))));
writeln ('ALFA=', ALFA:7:2);
writeln ('BETA=', BETA:7:2);
writeln ('y=',y:7:2);
End.
Результат:
Завдання №4. Розгалужені алгоритми.
Обчислити заданий вираз при вказаних змінних 
Невідомі дані ввести з клавіатури за своїм способом. У програмі передбачити виведення початкових даних і результатів обчислень.
Program Rozhalugeni_algorutmu;
Var
KSI,ETA,y:real;
Begin
write ('KSI=');
readln (KSI);
write ('ETA=');
readln (ETA);
if abs(KSI+ETA)>1 then
y:=KSI*ETA
Else
if abs(KSI+ETA)<1 then
y:=exp(ETA)*KSI
Else
y:=cos(ETA);
writeln ('KSI=', KSI:10:4);
writeln ('ETA=', ETA:10:4);
writeln ('y=', y:7:2);
End.
Результат:
