<span>var a,b,c:real;
begin
a:=3;
b:=4;
c:=sqrt(a*a+b*b);
writeln('c = ',c);
end<span>.
Результат:
c = 5</span></span>
Program program1;
var
x, y: real;
begin
writeln('Введите X: ');
readln(x);
y := x * 2 + 3;
writeln('y = ', y);
end.
Я бы создал онлайн игру с открытым миром, что то типо симса где можно создать персонажа и играть от первого лица как будто это реальная жизнь
1)var k,n,a:integer;
begin
readln(k,n);
for a:=1 to n do
writeln(k);
end.
2)var a:integer;
begin
for a:=10 to 99 do
if (a mod 4=0) and (a mod 6<>0) then writeln(a);
end.