Файл с исходным кодом прикреплен в описании (нужно переименовать с 'Program.cs.txt', на просто 'Program.cs'), код продублирован в коментариях к ответу. Если есть вопросы - пиши в коменты.
Код полностью прокоментирован, надеюсь будет понятно.
Program rezultat;
var a: integer;
begin
write('a='); readln(a)
if a>0 then write(sqr(a))
else write(sqr(a)*sqr(a))
end.
<span>sqr(a)</span> - квадрат числа
1) Президент управляет страной
2) Письмо можно отправить
Const a = 67.45;var k,d,b : real;begin writeln('Введите сумму в рублях: '); read(k); b := k/a; writeln('Ваша сумма в $: ', b:3:2);end.