Исправь ошибки и напиши что получиться на экране
А где ошибки их нет и что за ошибки?
Program my; Var a,b,c,s: integer; Begin Readln(a); Readln(b); Readln(c); S:=a*b*c; Writeln ('s'); End.