Выводит на экран слово "привет".
var
a, b, ans: Integer;
begin
Readln(a, b);
ans := 0;
while ans * b <= a do
ans := ans + 1;
ans := ans - 1;
Write(ans,' ', a-(ans*b));
end.
HTTP - стандартный протокол интернета
FTP - протокол передачи данных
POP3 - протокол электронной почты