Помогите написать код 1, 2. Даю 20 баллов.

Question

Помогите написать код 1, 2. Даю 20 баллов.

---

Answer 1

1.program printname;

var first_name, family_name, my_class : string;

i : byte;

begin

write('Введи свое имя');

readln(first_name);

write('Введи свою фамилию');

readln(family_name);  

write('Введи свой класс');

readln(me_class);

writeln('family_name', ' first_name','my_class');

end.

2. Program zadacha;

Var a, b, c, P: integer;

begin

readln(a, b, c);

S:=a+b+c;

P:=S*5;

Writeln(P);

end.