<span>Program m21;
var i:integer;
begin i:=-10;
while i<=20 do
begin write (i,' ');
i:=i+5;
end;
end.
</span>
var
i, j: integer;
begin
for i:= 1 to 99 do
for j:= i +1 to 100 do
if i*i*i = j*j then writeln(i,' ',j);
end.
Ми розумні та кмітливі і завжди на позитиві!
В первой сточке "program primer; "
во второй " var a,b,s,d,m ...."
и в последней после end должна стоять точка
Помогла , чем смогла :)
И так же после begin не нужны никакие знаки