напишите пожалуйста программы по паскалю.

Решения (скинул на почту) :
1)var
i,j:integer;
M:real;
M1:array[1..15] of real;{massiv vvedennykh 4isel}
M2:array[1..15] of integer;{massiv}
begin
{Sdes idet vvod dannih}
for i:=1 to 15 do
begin
write('Vvedite ',i,'-e 4islo i nazhmite Enter: ');
readln(M1);
end;
{Vi4isleniya}
for i:=1 to 15 do
begin
if M1/10=int(M1)/10 then {proveryaem na celoe 4islo}
begin
if M1-abs(M1)=0 then {proveryaem na polozhitel'noe 4islo}
begin
j:=j+1;{j - 4islo polozhitel'nykh celykh 4isel}
M2[j]:=i;{V massiv M2 zapisyvaem ь elementa massiva M1}
end;
end;
end;
{Vyvod rezul'tatov}
if j=0 then
begin
writeln('Sredi vvedennykh 4isel net ni odnogo celogo i polozhitelnogo');
end
else
begin
writeln('Sredi vvedennykh 4isel naideno ',j,' celykh polozhitelnykh 4isel');
writeln('Tablitsa:');
for i:=1 to j do
begin
M:=M1[M2];
writeln(M:5:0,(M*M):9:0);{Vivod vvedennykh 4isel i ih kvadratov}
end;
end;
readln;
end.
2)var
i,j:integer;
M:real;
M1:array[1..15] of real;{massiv vvedennykh 4isel}
M2:array[1..15] of integer;{massiv}
begin
{Sdes idet vvod dannih}
for i:=1 to 15 do
begin
write('Vvedite ',i,'-e 4islo i nazhmite Enter: ');
readln(M1);
end;
{Vi4isleniya}
for i:=1 to 15 do
begin
if M1/10=int(M1)/10 then {proveryaem na celoe 4islo}
begin
if M1-abs(M1)=0 then {proveryaem na polozhitel'noe 4islo}
begin
if M1/2<>int(M1/2) then{proveryaem na ne4etnost'}
begin
j:=j+1;{j - 4islo polozhitel'nykh celykh ne4etnykh 4isel}
M2[j]:=i;{V massiv M2 zapisyvaem ь elementa massiva M1}
end;
end;
end;
end;
{Vyvod rezul'tatov}
if j=0 then
begin
writeln('Sredi vvedennykh 4isel net ni odnogo celogo i polozhitelnogo ne4etnogo 4isla');
end
else
begin
writeln('Sredi vvedennykh 4isel naideno ',j,' celykh polozhitelnykh ne4etnykh 4isel');
writeln('Tablitsa kvadratov pervykh 5-ti:');
for i:=1 to 5 do{Nuzhny tol'ko pervye 5}
begin
M:=M1[M2];
writeln(M:5:0,(M*M):9:0);{Vivod vvedennykh 4isel i ih kvadratov}
end;
end;
readln;
end.

Шпаргалка по Паскалю paskalturbo.narod.ru/programma.html

Авторские уроки Марины Макаровой по паскалю. uchinfo.com.ua//exclusive/pascal/index.htm

не понял толком что требуется, но вот что я понял)
1)
var n,i:longint;
begin
for i:=1 to 5 do
write(sqr(i),' ');
end;

2)
var n,i:longint;
begin
n:=0;
i:=1;
while n<6 do
begin
if i mod 2=1 then write(sqr(i));
inc(n);
inc(i);
end;

я бы написал, но времени нет.... а так тут легко