Program Alina;
uses crt;
const
a=200;
b=300;
var i, n, k: integer;
begin
k:=0;
for i:=a to b do
if i mod 7 = 0 then k:=k+1;
writeln('Всего ',k,' чисел, кратных 7');
end.
program
zadacha;
var
n,x:real;
begin
writeln('vvedite
chislo');
readln(n);
if n>0
then x:=sqr(n);
if n<0
then x:=sqr(n)*n;
writeln(x);
end.
Вот) я конечно не уверена, что правильно, но скорее всего так