program calc; {кстати, program можно и не писать}
uses crt; {это нам для очищения экрана}
label 1;  {для перехода к началу}
var a,b:integer; {числа} c:char; {проверка повтора, знака счета}
s:real; {real, т.к присутствует деление} 
begin   
1: clrscr;    {очистка экрана}
     writeln('введите 1 число');       
     readln(a);       
     writeln('введите 2 число');       
     readln(b);      
     writeln('введите знак действия');       
     readln(c); 
     case c of {проверка введенного}           
         '+' : s:=a+b;           
          '-' : s:=a-b;           
         '*' : s:=a*b;           
          '/' : s:=a/b;       
     end;       
     writeln('ответ с точностью до двух цифр: ',s:4:2); 
     {:2 - кол-во цифр после запятой, используется для деления}       
     writeln ('хотите сосчитать еще раз? Y/N'); 
	 readln (c); 
	 if c='Y' then goto 1 {переходим к началу} else 
	 if c='N' then writeln ('для выхода нажмите любую клавишу...'); 
{просто продолжение}
readln; {ожидание пустого ввода}
end.

form1.resp.text := http1.get ('sait.ru');