1 обычный
2 полужирный
3 курсивный
4 подчёркнутый
5 полужирный и курсивный
6 полужирный и подчёркнутый
7 подчёркнутый и курсивный
8 полужирный и подчёркнутый и курсивный
Program inf;
var
diag, storona, diag2, otvet, S: real;
begin
write('Введите сторону ');
readln(storona);
write('Введите диагональ ');
readln(diag);
diag := diag / 2;
diag2 := sqrt(sqr(storona) - sqr(diag));
S := diag * diag2 * 2;
writeln(S: 4: 2);
end.
Программы и блок схемы к ним на скринах, надеюсь всё понятно
PS-------------------------------------------------------------------------------------------
Блок схемы сделаны по устаревшему ГОСТу, но имеют место быть,
Abs - это обозначение модуля в Pascal.
<span>артефакт,инстинкт,антарцит,оригинал</span>