Сделайте программу паскаль АВС
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.