#pas
program treug;
var
a,b,c,d,e,g:integer;
begin
writeln('vvedite parametry pervogo treugolnika:');
write('storona A:');readln(a);
write('storona B:');readln(b);
write('storona C:');readln(c);
writeln('vvedite parametry vtorogo treugolnika:');
write('storona A:');readln(d);
write('storona B:');readln(e);
write('storona C:');readln(g);
if (a=d) and (b=e) and (c=g)
then writeln('oni ravny')
else writeln('oni neravny');
readln;
end.

#pas
program chisla;
var
a,b:integer;
begin
write('vvedite A:');readln(a);
write('vvedite B:');readln(b);
repeat
if a mod 5<>0 then write(a,',');
a:=a+1;
until a>b;
readln;
end.

#pas
program bobina;
var
b:integer;
a,l:real;
begin
write('vvedite diametr bobiny A(mm):');readln(a);
write('vvedite kolichestvo sloev B:');readln(b);
repeat
b:=b-1;
l:=l+3.141592*a;
a:=a+0.02;
until b=0;
write('dlina L=',l:8:2,' mm');
readln;
end.

#pas
program dolg;
var
d,t,i:integer;
s:real;
begin
write('vvedite dolg:');readln(d);
write('vvedite kolichestvo mesjacev:');readln(t);
i:=0;
repeat
i:=i+1;
if d-1000 < 0
then d:=0
else d:=d-1000;
if d<1000
then s:=s+d
else s:=s+1000+d*0.03;
until (i=t) or (d=0);
writeln('za ',i, ' mesjacev vypla4eno ',s:8:2,'rub.');
readln;
end.