Информационный портал

Была у нас время, изучали паскаль, задавали задания по которым нужно было написать программу, собственно вот все мои уцелевшие коды:

Код:

var
c,x,y:real;
begin
c:=1;
writeln ('');
writeln ('v vedite chisla coordinat  glia graffika. programa sravnit podhodiat li eti chisla dli nashego graffika');
writeln ('');
readln (x,y);
if x2 then c:=5;
if (x>=0) and (y=1) and (xc then d:=1;
if a0) and (x1) and (xm then summ:=summ*s[i];
end;
if summ=1 then writeln ('Chisla net')
else writeln ('proizvedenie=',summ);
readln;
end.

Код:

const
n=10;
type
masive=array[1..n] of integer;
Var
s:masive;
summ,m,i:integer;
begin
summ:=1;
randomize;
writeln ('v vedite chislo');
readln (m);
for i:=1 to n do begin
s[i]:=random(200);
if s[i]>m then summ:=summ*s[i];
end;
if summ=1 then writeln ('Chisla net')
else writeln ('proizvedenie=',summ);
readln;
end.

Код:

uses crt;
const
n=5;
var
masive:array[1..n] of integer;
max,min,i:integer;
begin
clrscr;
randomize;
for i:=1 to n do begin
masive[i]:=random(999)-501;
write(masive[i],' ':11);
end;
writeln;
for i:=1 to n do begin
if minmasive[i] then max:=masive[i];
end;
for i:=1 to n do begin
if masive[i]>=0 then masive[i]:=masive[i]*(min*min);
if masive[i]0 then write(0,' ')
else write(1,' ');
nul:=nul-1;
end;
readln;
end.

Код:

var
i,s:string;
begin
writeln;
writeln ('v vedit vashe imia');
readln (i);
writeln ('Hello mr. ',i);
readln;
end.

Код:

var
s,n,b:integer;
w:string;
begin
readln (w);
s:=length(w);
for n:=1 to s do begin
if w[n]=' ' then begin
delete (w,n,1);
n:=n-1;
end;
writeln (w);
end; writeln (w);
readln;
end.

__________________
Задействована ручная корректировка программы…