Составить алгоритм цикла х , если x> 0 у = х2-х+4, 5 , если х< 0

Program gt; var x,y: real; begin readln(x); if(x> 0)then y: =x; if(x< 0)then  y: =x*x-x+4.5; writeln(y); end.

Алг

нач

  цел n,j,i,n0

  цел таб k[1: 20]

  вывод "введите размер последовательности n> 1", нс

  ввод n

  если n> 1 то

      вывод "введите элементы последовательности, целые числа", нс

      i: =0

      нц n раз

          i: =i+1

          ввод k[i]

          если k[i] = 0 то

              n0: =i

          все

        кц

      нц для j от 1 до n0

          вывод k[j]

      кц

  все

кон

Unit unit1; {$mode objfpc}{$h+} interface uses  classes, sysutils, fileutil, forms, controls, graphics, dialogs, stdctrls,  spin, math; type   { tform1 }   tform1 = class(tform)    button1: tbutton;     edit1: tedit;     edit2: tedit;     label1: tlabel;     label2: tlabel;     label3: tlabel;     label4: tlabel;     procedure button1click(sender: tobject);   private    { private declarations }  public    { public declarations }  end; var  form1: tform1; implementation {$r *.lfm} { tform1 } procedure tform1.button1click(sender: tobject); begin  form1.label4.caption: =floattostr(tan((strtofloat(form1.edit1.text)*2)+strtofloat(form1.edit2.; end; end.