Задачи по информатике 12 ноября

Program Microscop; 
uses ctr, GraphABC; 
Var img, x,y,w,h,d: integer; c:char; 
Begin 
SetwindowSite(400,260); 
img:=LoadPicture('kletka.jpg'); 
x:=0; y:=0; 
w:=400; h:=260; 
repeat 
ClearWindow(clSkyBlue); 
DrawPicture(img,x,y,w,h); 
d:=0; c:=ReadKey; 
if c=#72 then d:=5; 
if c=#80 then d:=-5; 
w:=w+2*d; h:=h+2*d;x:=x-d; y:=y-d; 
until c=#27; 
end.

Program Les; 
uses ctr, GraphABC; 
Var P,D,V:Real; T,i:integer; 
Begin 
Write('Прирост(от 2 до 8 %'); 
readln(P); 
Write('Вырубка(от 5 до 15 тыс. куб. м)'); 
Readln(D); 
Write('Время(от 2 до 20 ле)'); 
v:=80; i:=0; 
Writeln('--------------------------'); 
Writeln('Год Объём, тыс. куб. м'); 
while(i<=T) and (V:12:1); 
V:=V*(1+P/100)-D; i:=i+1; 
end; 
end.

Program upr3a;
var N,P,i,t,u0: integer; u:real;
Begin
Write('Уровень загрязнения воды=  ');
Readln (u0);
Write ('Уменьшение загрязнения воды ');
Readln (P);
Write (' Введите коэффициент уменьшения загрязнения воды ')
Readln(N);
t:=0; u:=u0;
while u>=u0 div N do
Begin
u:=u-u*p/100;
t:=t+1;
end;
Write ('Через  ' , t , 'дней ');
End.

Program upr3b;
var k0: integer;  k,t:real;
Begin
Write('Количество атомов радиоактивного изотопа Иод-31=  ');
Readln (k0);
t:=0; k:=k0;
while k>=k0 div 100 do 
begin
k:=k/2; t:=t+8.14;
end;
Write ('Через  ' , t , 'дней ');
End.

Program upr3v;
var t: integer;  k:real;
Begin
t:=0; k:=50;
while k>=12 do 
begin
k:=k-k*20/100; 
t:=t+1;
end;
Write ('Через  ' , t , 'дней ');
End.