Составить блок-схему и программу вычисления значения функции + написать программу

uses crt;
var
x:integer;
y:real;
begin clrscr;
write('x=');
read(x);
if x<4 then y:=(2*sqr(x)*x+1)/(x-5);
if x>=4 then y:=3*sqr(x)-2;
writeln('Y=',y:2:3);
readkey;
end.

uses crt;
var
a,b,c:integer;
begin clrscr;
write('a='); read(a);
write('b='); read(b);
write('c='); read(c);
writeln;
if a<0 then writeln('a^2=',sqr(a)) else writeln('a>0');
if b<0 then writeln('b^2=',sqr(b)) else writeln('b>0');
if c<0 then writeln('c^2=',sqr(c)) else writeln('c>0');
readkey;
end.

uses crt;
var
x,y:real;
begin clrscr;
write('x=');
read(x);
write('y=');
read(y);
if ((sqr(x)+sqr(y))<=1) and (y>=0) then
writeln('tocka A[',x:1:1,',',y:1:1,'] prinadlegit figure')
else writeln('tocka A[',x:2:2,',',y:2:2,'] NE prinadlegit figure');
readkey;
end.