Номер 3, нужно блок схема и программа

Программа1:

Var a,b,c,p: real;

Begin

Write('a=');

Readln(a);

Write('b=');

Readln(b);

Write('c=');

Readln(c);

p:=(a+b+c);

Writeln('P=',p:0:1);

End.

Программа3:

var i,a:integer;

begin

write('Ваше число: ');

readln(a);

i:=(a mod 10);

Write('Цифра: ',i);

end.