помогите решить номер 2

+ 0 -

Marat1799

24 нояб. 2013 г., 4:57:08 (10 лет назад)

1)var x,y:real;
begin
readln(x);
y:=(3*x)+(5*x);
write(y);
end.
2) var a,b,s:real;
begin
readln(a,b);
s:=a*b;
write(s);
end.
3)var a,b,c:integer;
d:String;
begin
writeln('Здарова, как тебя звать? У меня есть информация что оценки у тебя никудышние, быстро называй оценки по информатике, математике и русскому языку!!!');
readln(d,a,b,c);
writeln(d,', ваши оценки: ');
writeln('по информатике: ', a);
writeln('по математике: ', b);
writeln('по русскому языку: ', c);
writeln('Суммарный балл - ', (a + b + c));
end.

+ 0 -

Zizitop228

24 нояб. 2013 г., 7:50:00 (10 лет назад)

а в инете не нашла ?

+ 0 -

елизавета7

24 нояб. 2013 г., 8:50:24 (10 лет назад)

нет