writeln(infile,s);

writeln(s);

var
	beg, end, k : double ;
	i : integer ;
begin
	readln(beg, end);

	for i=beg to (beg+end) do
	begin
		k = sqrt(i);
		if i / k = k then
			writeln(i); 
	end;
end;

Program qwer;

Var

	n,k,i:integer;

Function kvadrat(i:integer) : boolean;
	begin
		if frac(sqrt(i))=0 then 
			kvadrat:=true else
			kvadrat:=false;
	end;


Begin
	write('Введите количество чисел ');
	readln(n);
	write('Введите начальное число ');
	readln(k);
	for i:=k to k+n do
	if kvadrat(i) then 
	begin	
		write(i);
		write(' ');
	end;
	readln;
End.

#include <stdio.h>
#include <conio.h>

void main()
{
 clrscr();
 float a=0,b=0,res=0;
 char o;
 int ok;
 printf("Input Operation");
 scanf("%lf%c%lf",&a,&o,&b);
 ok = 1;
 switch(o){
	   case '+' : res = a+b;break;
	   case '-' : res = a-b;break;
	   case '*' : res = a*b;break;
	   case '/' : if (b=0) ok = 2;
			else {
			      res = a/b;break;
			     }
	   default : ok = 0;
	  }
 if (ok == 1){
	      printf("%.2f%c%.2f=%.2f",a,o,b,res);
	     }
   else{
	if (ok == 0)printf("Unknow Operation %c",o);
	  else{
	       puts("Divizion By Zero");
	      }
       }
 getch();
}

for(int i=0;*(str+i)!=0;i++)
{
  for(int j=1;*(str+i+j)!=0 && *(str+i)+j==*(str+i+j);j++) ;
  if(j>1)
  {
      strcpy(str+i,str+i+j);
  }
}