Program oplata;
var a,b:integer;
begin
writeln('Введите стоимость ');
readln(a);
writeln('Введите оплату ');
readln(b);
if a=b then writeln('спасибо')
else if a>b then writeln('добавьте денег')
else writeln('возьмите сдачу')
<span>end.</span>
Жорсткий диск,відео карта,процесор,оперативна память,блок живлення.
можно снять какой нибудь смешной сюжет
или страшилку
<span>1 символ в кодировке Виндовс-1251 = 1 байт.
1536 симв.*1 байт/симв. = 1536 байт.
1536 / 1024 = 1,5кБайт.
</span>