Срочность подъехала уже.
ТЕКСТОВЫЙ ВАРИАНТ:
<span>var b,i,n:integer;
const L=19999;
var a:array [1..L] of integer;
begin
writeln('Введите кол-во цифр');
readln(n);
for i:=1 to n do begin
writeln('Введите число');
readln(a[i]);
end;
for i:=1 to n do begin
if (a[i]<30) then
if (a[i] mod 2) = 0 then
print(a[i]);
end;
end.</span>
var
x,y:real;
begin
Write('Введите число: '); Read(x);
if x<=0 then y:=-3
else
if x<=1 then y:=x else y:=sqr(x);
Writeln('y=',y)
end.
"Если спрайт касается желтого цвета, то он должен сказать "Светит солнце!" или "Идёт дождь!"
