составьте блок-схему

[Alexander2810]

PROGRAM EXPRESSION (INPUT, OUTPUT);
VAR X,X1,Y,Y1: REAL:
C1: CHAR;
Y1, YR, PN: INTEGER;
BEGIN
WRITE (' введіть X:'); READLN (x);
WRITE (' введіть символ Cl: '); READLN (Cl);
WRITE (' введіть порядковий номер символа С2: '); READLN (PN);
WRITE (' введіть координати X1 та Yl:'); READLN (XI, Yl);
Y:=COS(x)/SIN(x)*(EXP(3)*ABS(x+5)); YI:=TRUNC(Y); YR:=ROUND(Y);
WRITELN (' при X= ', X:4:1,' Y=' , Y:8:2);
WRITELN (' YI=',Yl:8, ' парне - ' ,NOT ODD(YI));
WRITELN (' YR=' ,YR:8, ’парне -' ,NOT ODD(YR));
WRITELN (' порядковий номер символа С1=', ОRD (С 1));
WRITE (' символ Cl=' ,С1,' попередній символу С2=' ,CHR(PN), '-');
WRITELN (С1=PRED(CHR(PN)));
WRITE (' символ Cl=' ,С1,' наступний символу С2=' ,CHR(PN), '-');
WRITELN (C1=SUCC(CHR(PN)));
WRITELN (’ точка з координатами XI,Х2 належить кругу радіусом 1');
WRITE (' з центром в початку координат - ');
WRITELN (SQR(X1) + SQR( Y1 )<= 2 )
END.

[Smitt&Wesson]

И чё тут составлять? Четыре блока без циклов и проверок.

1. Инициируем переменные.
2. Вводим данные.
3. Расчитываем по формуле.
4. Выводим результаты.