Program mm;
var a,x: integer;
begin
uses crt;
write('x');
readln(x);
a:=cos(x)+sqrt(x);
writeln('y= ', a:4:2);
readln; {возможно readkey, зависит от Паскаля}
end.
Program prog;
uses crt;
var a: array [1..10] of integer;
i,k: integer;
begin
clrscr;
randomize;
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
writeln ('a[',i,'] = ', a[i]);
if a[i]>0 then inc(k);
end;
writeln;
write('K = ', k);
end.
Program ryazantsev;
var n,k:integer;
begin
k:=0;
readln(n);
while n <> 0 do begin
if (n>=100) and (n<=999) and (n mod 4 = 0) then k:=k+1;
readln(n);
end;
writeln(k)
end.
задай var x,y:real;
так как в формуле есть деление.