98% что программу ты написал правильно, просто я Паскаль немного забыл , но основное помню
Var
x:integer;
begin;
for x:=1 to 10 do
writeln(x,' см=',x*2.54,' дюйма');
end.
var a: real;
begin
readln(a);
writeln((2 * a * a * a + 8)/(3 * a));
end.
Куда деньги переводить???