1.
program z1;
var x,y:real;
begin
writeln('введите х');
readln(x);
if x<>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 2<>0 then
s:=s+i;
writeln(s);
end.
Объяснение:
блок схема на скрине
