Var
x,y:real;
begin
write('x=');
readln(x);
write('y=');
readln(y);
if (sqr(x)+sqr(y)<=1) then
if (x<0) and (y>0) then
writeln('no')
else
writeln('yes')
else
writeln('no');
end.<span>
</span>
Var
n,s:longint;
begin
Write('Введите натуральное четырехзначное число: ');
Readln(n);
s:=n mod 10;
n:=n div 10;
s:=s+n mod 10;
n:=n div 10;
s:=s+n mod 10;
n:=n div 10;
s:=s+n;
Writeln('Сумма цифр введенного числа равна ',s)
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное четырехзначное число: 1745
Сумма цифр введенного числа равна 17
const n=5;
var a: array[1..n] of integer;
i,x,k: integer;
begin
randomize;
write('x=');
readln(x);
k:=0;
write('massiv: ');
for i:=1 to n do begin
a[i]:=random(201)-100;
write(a[i],' ');
if a[i]>x then k:=k+1;
end;
writeln;
write('k=',k);
end.
В VBasic создаете командную кнопку и копируете из файла программу кроме первой и последней строк