Начертите фигуру, изображенную на рисунке, используя алгоритм с циклом

program primer_(число); var (буквы): real или integer;   beginwriteln ('введите что-то'); read (буква); буква: =вычисления; write ('значение выражения=',   буква); end.

p.s. только смотри на знаки, которые я расставила. 

readln (a, b);     -  вводим значения а в

c: =(a+b) * (b-a);   - выполняем уравнение

    writeln (c) -  выводим результат

в итоге получается

с=(7+8)*(8-7)

c=15

соттветственно будет получен результат 15 на экране.

var x,y: integer;

begin

readln(x);

if x< 1 then y: =-2*x+11

else y: =x*x-2;

writeln(y);

end.

ты едишь к сестре татьяны?