может кто написать проги в Pascal ABC.?

[DeadMan1995]

Задача 1.
Дана длина ребра куба. Найти обьем и площадь его боковой поверхности.
Задача 2.
Даны три вещественных числа. Вывести на экран те из них, которые принадлежат
интервалу (0.7-5.1)

[XemyL]

елементарная математика

Program zad1;
Var a:word;
BEGIN
write('Vvedite dlinu rebra kuba: ');
readln(a);
writeln('Rezultat:');
writeln('Ob''em kuba = ',a*a*a, ' (ed.kub.)');
writeln('Ploschad'' b.p. kuba = ',a*a*4,' (ed.kv.)');
readln;
END.

Program zad2;
Var x1,x2:double;
    arr:array[1..3] of double;
    i: byte;

BEGIN
write('Vvedite nachalo intervala: ');
readln(x1);
write('Vvedite konec'' intervala: ');
readln(x2);

writeln('Vvedite tri chisla (cherez enter ili probel): ');
for i:=1 to 3 do
  read(arr[i]);
writeln('Rezultat:');
for i:=1 to 3 do
  if ( (arr[i]>x1) AND (arr[i]<x2) ) then
    write(arr[i],' ');
readln;
END.

[Zer0]

writeln('Ploschad'' b.p. kuba = ',a*a*4,' (ed.kv.)');

если мне память не изменяет, то у куба 6 граней, а не 4

Ан нет... перепутал боковую поверхность с полной площадью, прошу прощения