Что делаеть это программа?
Program Example;
Var a, b, S:Integer;
Begin
Writeln ('Введите 2 числа');
Readln (a, b);
S:=a*b
Writeln (S)
Readln;
End.

Да, это программа

Объяснение:

Пользователь вводит два числа (a,b). Программа перемножает числа a и b, заносит результат в переменную S и выводит ёё значение.

Объяснение:

2 var  3 s: string;   4 begin  5  readln(s); 6  while  pos('с',s)> 0  do  delete(s,pos('с',s),1); 7writeln(s);   8 end.это точно

138 байт,потому что 1024 бита=128 байт=> 10+128=138 как-то так.