Program f1;
var x,y: real;
begin
read (x);
y:=2/(x-4);
writeln( y);
end.
Удалить всмысле на ноль заменить? если да, то:
if {name array}[2] <0 then
{name array}:=0;
Program HelloWorld;var a1,b1,c1,a2,b2,c2:integer; s:double;begin writeln('First'); a1:=5; b1:=6; c1:=1; writeln(a1,'-',b1,'-',c1); writeln('Second'); a2:=3; b2:=2; c2:=8; writeln(a2,'-',b2,'-',c2); if(b1>a1)and(b1>c1) then a1:=b1 else if (c1>a1) then a1:=c1; if(b2>a2)and(b2>c2) then a2:=b2 else if (c2>a2) then a2:=c2; s:=(a1+a2)/2; writeln(s:0:2);end.
Var p real;
begin
readln(p);
if (p>40) and (x<60) then writeln ('Первая категория');
if (p>61) and (x<75) then writeln ('Вторая категория');
if (p>76) and (x<100) then writeln ('Третья категория');
readln;
end,