Информатика! программирование паскаль! ! 1)с клавиатуры вводятся числа a,b,c. вычислить z=a/b*c 2)с клавиатуры вводится трёхзначное число. найти число единиц в нём.

//первое

var
a, b, c, z: integer;
begin
writeln('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
writeln('Введите число c');
readln(c);
z:=a/b*c;
writeln(z);
end.