program Project3;
{$APPTYPE CONSOLE}
label 1,2,3;
var S,R,N,Sm:INTEGER;
begin
1:WRITELN('Vvedit kilkist symvoliv v ryadku');
READLN(S);
IF S<=0 THEN begin WRITELN('Knyga z ',S,' symvolamy ne isnue');
goto 1;end else
2:WRITELN('Vvedit kilkist ryadkiv na storinci');
READLN(R);
IF R<=0 THEN begin WRITELN('Knyga z ',R,' ryadkamy ne isnue');
goto 2;end else
3:WRITELN('Vvedit kilkist storinok');
READLN(N);
IF N<=0 THEN begin WRITELN('Knyga z ',N,' storinkamy ne isnue');
goto 3;end else
Sm:=S*R*N;
WRITELN('U knyjci ',Sm,' symvoliv');
READLN;
end.