Помогите написать программы, пожалуйста!

1) varp,t: integer; beginwriteln ('Введте мощьность'); readln (p); writeln ('Введите воемя'); readln (t); writeln ('Кол-во теплоты равно: ',p*t*60/100); end.2) vars,c: integer; beginwriteln ('Введите кол-во денег: '); readln (s); writeln ('Цена за единицу товара: '); readln (c); writeln ('На эту сумму можно купить ',s div c,' единиц товара'); end. Надеюсь на «Лучший ответ"