Составить методы и их блок - схемы 1) Вычисления значения выражения

1.
program z1;
var x,y:real;
begin
writeln('введите х');
readln(x);
if xlt;gt;2 then
begin
y:=(2*x+3)/(x-2);
writeln('y=',y);
end
else
writeln('не существует');
end.

2.
program z1;
var s,k,i:integer;
begin
s:=0;
writeln('введите k');
readln(k);
for i:=1 to k do
if i mod 2lt;gt;0 then
s:=s+i;
writeln(s);
end.