подскажите решение проблемы Опции

[Dorash87]

Подскажите как зделать. Вот простая задача:

Program 1
var
x: integer;
a,b,c,d,e,f: real;
begin
write('x=');
read(x);
a:=......
b:=......
c:=......
d:=......
begin
if x<740 then
e:=......
if x>=740 then
e:=.....
end;
f:=....
writeln ('a=',.....)
writeln ('b=',.....)
writeln ('c=',.....)
writeln ('d=',.....)
writeln ('e=',.....)
writeln ('e=',.....)
writeln ('f=',.....)
end.

При вводе значения х надо вывести вычисления a,b,c,d,e,f но не получаеться с значением e подскажите как зделать!

[Алена]

Ну ничего очень красивого не получится если делаешь на паскале

Ну, это как сказать... Если ты не умеешь складывать числа, то ты ни на счетах, ни на пальцах не посчитаешь... Точно так же и меню - если ТЫ не умеешь делать это красиво - не говори...