Сделайте программу паскаль АВС

1) Даны стороны треугольника. Найти его периметр.

2) Известна стоимость 1 кг конфет, печенья и яблок. Найти стоимость всей покупки, если купили х кг конфет, у кг печенья и z кг яблок.

30 Чтобы заварить 1,5 л чая, нужно 30 г сухого чая. Чайник вмещает В л. сколько нужно чая для заварки?

2)

var a, b, c, x, y, z, s:real;

begin

writeln ('Введите стоимость 1 кг конфет, печенья и яблок:') ;

readln (a, b, c) ;

writeln ('Введите вес конфет, печенья и яблок:') ;

readln (x, y, z) ;

s:=a*x+b*y+c*z;

writeln ('Стоимость всей покупки = ', s) ;

end.

Пример:

Введите стоимость 1 кг конфет, печенья и яблок:

215 150 60

Введите вес конфет, печенья и яблок:

0.5 2 3.5

Стоимость всей покупки = 617.5

3)

var b, s:real;

begin

write ('b = ') ;

readln (b) ;

s:=b*30/1.5;

writeln ('s = ', s) ;

end.

Пример:

b = 2

s = 40

Задача 1

var a, b, c:integer;

begin

write ('storona 1 = ') ; readln (a) ;

write ('storona 2 = ') ; readln (b) ;

write ('storona 3 = ') ; readln (c) ;

writeln ('Perimetr = ', a+b+c) ;

end.