pascal abc
дан произвольный треугольник abc, для которого определен набор характерных параметров:
a, b, c – стороны треугольника;
альфа, бетта, гамма - углы треугольника (в градусах);
h – высота, опущенная на сторону c;
s – площадь;
p – периметр.
по трем следующим параметрам вычислить все остальные: a,b,h
решить программой в паскале

Программа Вот:
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. 
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами  

1)32Кбайт=32*1024байт=32768байт
1байт=8бит
32768байт=32768*8 бит=262144бит
262 144 бит/(4096 бит/с)=64с
64с*1024бит/с=65536бит-размер
65536бит=65536/8 бит=8192байт
2)
60 кбайт=60*1024 байт=61440 байт
1 байт=8 бит
61440 байт=61440*8 бит=491520бит
491520/4096=120с
491520/1024=480с
4080-120=360с=6минут
3)
2Кбайт=2*1024байт=2048 байт=16384 бит
16384/256=64 секунд
64*2048бит=131072 бит=16384 байт
4)
8Мбайт=8*1024к байт=8*1024*1024байт=8388608байт
8388608/100=83886,08 байт/с
83886,08 байт/с*25с=2097152 байт=2048Кбайт
5)
Файл размером 8 Кбайт передается через некоторое соединение за 64 секунды.Определите, за сколько секунд можно передать этот же файл через соединение,скорость которого на 1024 бит в секунду больше 
8Кбайт=8192байт=65536 бит
65536бит/64с=1024 бит/с
1024 бит/с+1024 бит/с=2048 бит/с
65536 бит/(2048 бит/с)=32с